home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / c / PhoneLogDevKit.lha / PhoneLog / src / PhoneLogScannerSource.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-16  |  678 b   |  28 lines
  1. /* $Id: Source.c,v 2.4 1992/08/07 15:29:41 grosch rel $ */
  2.  
  3. # include "PhoneLogScannerSource.h"
  4.  
  5. # include "System.h"
  6.  
  7. int PhoneLogScanner_BeginSource(char * FileName)
  8. {
  9.    return OpenInput (FileName);
  10. }
  11.  
  12. int PhoneLogScanner_GetLine(int File, char * Buffer, int Size)
  13. {
  14.    register int n = Read (File, Buffer, Size);
  15. # ifdef Dialog
  16. # define IgnoreChar ' '
  17.    /* Add dummy after newline character in order to supply a lookahead for rex. */
  18.    /* This way newline tokens are recognized without typing an extra line.      */
  19.    if (n > 0 && Buffer [n - 1] == '\n') Buffer [n ++] = IgnoreChar;
  20. # endif
  21.    return n;
  22. }
  23.  
  24. void PhoneLogScanner_CloseSource(int File)
  25. {
  26.    Close (File);
  27. }
  28.